home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Model.p < prev    next >
Text File  |  2004-01-31  |  9KB  |  222 lines
  1. pTempVar <- <primitive 110 42 >
  2. <primitive 112 pTempVar 1  " update: " \
  3.   #( #[ 16r20 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " update:with: " \
  7.   #( #[ 16r20 16r21 16r81 16r00 16rF3 16rF5] \
  8.     #( #update:  )) >
  9.  
  10. <primitive 112 pTempVar 3  " update:with:from: " \
  11.   #( #[ 16r20 16r21 16r22 16r82 16r00 16rF3 16rF5] \
  12.     #( #update:with:  )) >
  13.  
  14. <primitive 112 pTempVar 4  " changed:with: " \
  15.   #( #[ 16r20 16r80 16r00 16r21 16r22 16r20 16r83 16r01 16rF2 16rF5] \
  16.     #( #modelDependents #update:with:from:  )) >
  17.  
  18. <primitive 112 pTempVar 5  " changed: " \
  19.   #( #[ 16r20 16r21 16r5D 16r82 16r00 16rF2 16rF5] \
  20.     #( #changed:with:  )) >
  21.  
  22. <primitive 112 pTempVar 6  " changed " \
  23.   #( #[ 16r20 16r5D 16r81 16r00 16rF2 16rF5] \
  24.     #( #changed:  )) >
  25.  
  26. <primitive 112 pTempVar 7  " okToChange " \
  27.   #( #[ 16r5B 16rF3 16rF5] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 8  " contentsChanged " \
  31.   #( #[ 16r20 16r30 16r81 16r01 16rF2 16rF5] \
  32.     #( #contentsChanged #changed:  )) >
  33.  
  34. <primitive 112 pTempVar 9  " modelWakeUpIn: " \
  35.   #( #[ 16r20 16r80 16r00 16rF2 16rF5] \
  36.     #( #modelWakeUp  )) >
  37.  
  38. <primitive 112 pTempVar 10  " modelWakeUp " \
  39.   #( #[ 16r5D 16rF3 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 11  " modelSleep " \
  43.   #( #[ 16r5D 16rF3 16rF5] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 12  " windowIsClosing " \
  47.   #( #[ 16r5D 16rF3 16rF5] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 13  " perform:orSendTo: " \
  51.   #( #[ 16r22 16r21 16r81 16r00 16rF3 16rF5] \
  52.     #( #perform:  )) >
  53.  
  54. <primitive 112 pTempVar 14  " new " \
  55.   #( #[ 16r40 16rA0 16r60 16r05 16r1E 16rA0 16r61 16r05 16r2F 16rA0 16r63 \
  56.         16r50 16r62 16rF5] \
  57.     #( #DependentsCollection  )) >
  58.  
  59. <primitive 112 pTempVar 15  " value " \
  60.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  61.     #( 'value' #subclassResponsibility:  )) >
  62.  
  63. <primitive 112 pTempVar 16  " linkMethod: " \
  64.   #( #[ 16r13 16rA1 16rF7 16r05 16r05 16r2F 16rA0 16rF1 16r63 16rF2 16r13 \
  65.         16r21 16rBE 16rF2 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 17  " topController " \
  69.   #( #[ 16r10 16rE0 16r02 16r5D 16rF4 16r81 16r00 16rF2 16r10 16rE1 16r01 \
  70.         16r0E 16r21 16r41 16r81 16r02 16rFC 16r03 16r21 16r80 16r03 \
  71.         16rF7 16r02 16r21 16rF4 16rF3 16rB3 16rF2 16r10 16rE1 16r01 \
  72.         16r12 16r21 16r80 16r04 16rE0 16r0A 16r21 16r80 16r05 16r20 \
  73.         16rB6 16rF7 16r02 16r21 16rF4 16rF3 16r81 16r00 16rF3 16rB3 \
  74.         16rF2 16r5D 16rF3 16rF5] \
  75.     #( #ifNil: #Controller #isKindOf: #isInWorld #superController #model  )) >
  76.  
  77. <primitive 112 pTempVar 18  " removeDependent: " \
  78.   #( #[ 16r10 16r5D 16rB6 16rF7 16r02 16r20 16rF3 16rF2 16r10 16rE1 16r03 \
  79.         16r05 16r23 16r21 16rB6 16rAC 16rF3 16r0B 16r2D 16r72 16r22 \
  80.         16r0A 16r1C 16rF7 16r05 16r5D 16rF1 16r60 16rF8 16r04 16rF2 \
  81.         16r22 16rF1 16r60 16rF2 16rF5] \
  82.     #(  )) >
  83.  
  84. <primitive 112 pTempVar 19  " hasUnacceptedEdits " \
  85.   #( #[ 16r10 16r5D 16rB6 16rF7 16r02 16r5C 16rF3 16rF2 16r12 16r51 16rCC \
  86.         16rF7 16r02 16r5B 16rF3 16rF2 16r5C 16rF3 16rF5] \
  87.     #(  )) >
  88.  
  89. <primitive 112 pTempVar 20  " dependents " \
  90.   #( #[ 16r10 16r5D 16rB6 16rF7 16r02 16r30 16rF3 16rF2 16r10 16rF3 16rF5 \
  91.        ] \
  92.     #( #( )  )) >
  93.  
  94. <primitive 112 pTempVar 21  " dependents: " \
  95.   #( #[ 16r21 16r60 16rF5] \
  96.     #(  )) >
  97.  
  98. <primitive 112 pTempVar 22  " canDiscardEdits " \
  99.   #( #[ 16r10 16r5D 16rB6 16rF7 16r02 16r5B 16rF3 16rF2 16r12 16r51 16rC7 \
  100.         16rF7 16r02 16r5B 16rF3 16rF2 16r5C 16rF3 16rF5] \
  101.     #(  )) >
  102.  
  103. <primitive 112 pTempVar 23  " asDependentsWithout: " \
  104.   #( #[ 16r21 16r20 16rB6 16rF7 16r03 16r5D 16rF8 16r02 16rF2 16r20 16rF3 \
  105.         16rF5] \
  106.     #(  )) >
  107.  
  108. <primitive 112 pTempVar 24  " asDependentsWith: " \
  109.   #( #[ 16r40 16r20 16r21 16r82 16r01 16rF3 16rF5] \
  110.     #( #DependentsCollection #with:with:  )) >
  111.  
  112. <primitive 112 pTempVar 25  " asDependentsAsCollection " \
  113.   #( #[ 16r05 16r1E 16r20 16r81 16r00 16rF3 16rF5] \
  114.     #( #with:  )) >
  115.  
  116. <primitive 112 pTempVar 26  " retractInterestIn:for: " \
  117.   #( #[ 16r20 16r80 16r00 16r73 16r23 16r5D 16rB6 16rF7 16r02 16r20 16rF3 \
  118.         16rF2 16r23 16rA4 16r41 16rB6 16rFC 16r05 16r23 16r22 16r21 \
  119.         16r82 16r02 16rF7 16r05 16r20 16r23 16r81 16r03 16rF3 16rF2 \
  120.         16r23 16rA4 16r44 16rB6 16rF6 16r02 16r20 16rF3 16rF2 16r51 \
  121.         16r23 16rA3 16rE1 16r04 16r19 16r23 16r24 16rB1 16rA4 16r41 \
  122.         16rB6 16rFC 16r07 16r23 16r24 16rB1 16r22 16r21 16r82 16r02 \
  123.         16rF7 16r07 16r20 16r23 16r24 16rB1 16r81 16r03 16rF4 16rF3 \
  124.         16r82 16r05 16rF2 16rF5] \
  125.     #( #myDependents #DependencyTransformer #matches:forAspect: #removeDependent: \
  126.         #DependentsCollection #to:do:  )) >
  127.  
  128. <primitive 112 pTempVar 27  " expressInterestIn:for:sendBack: " \
  129.   #( #[ 16r40 16rA0 16r74 16r24 16r22 16r21 16r23 16r83 16r01 16rF2 16r20 \
  130.         16r80 16r02 16r75 16r25 16rA4 16r43 16rB6 16rF7 16r06 16r25 \
  131.         16r24 16r0B 16r1F 16rF8 16r08 16rF2 16r25 16r24 16rC9 16rF7 \
  132.         16r02 16r20 16rF3 16rF2 16r20 16r24 16r81 16r04 16rF2 16rF5 \
  133.        ] \
  134.     #( #DependencyTransformer #setReceiver:aspect:selector: #myDependents \
  135.         #DependentsCollection #addDependent:  )) >
  136.  
  137. <primitive 112 pTempVar 28  " onChangeSend:to: " \
  138.   #( #[ 16r20 16r30 16r22 16r21 16r83 16r01 16rF2 16rF5] \
  139.     #( #value #expressInterestIn:for:sendBack:  )) >
  140.  
  141. <primitive 112 pTempVar 29  " breakDependents " \
  142.   #( #[ 16r20 16r5D 16r81 16r00 16rF2 16rF5] \
  143.     #( #myDependents:  )) >
  144.  
  145. <primitive 112 pTempVar 30  " release " \
  146.   #( #[ 16r20 16r80 16r00 16rF2 16rF5] \
  147.     #( #breakDependents  )) >
  148.  
  149. <primitive 112 pTempVar 31  " changeMade " \
  150.   #( #[ 16r12 16r51 16rC0 16r62 16rF5] \
  151.     #(  )) >
  152.  
  153. <primitive 112 pTempVar 32  " changeComplete " \
  154.   #( #[ 16r12 16r50 16rCC 16rF7 16r08 16r12 16r51 16rC1 16r62 16r5C 16rF3 \
  155.         16rF8 16r03 16rF2 16r5B 16rF3 16rF2 16rF5] \
  156.     #(  )) >
  157.  
  158. <primitive 112 pTempVar 33  " addDependent: " \
  159.   #( #[ 16r10 16r5D 16rB6 16rF7 16r0B 16r05 16r1E 16r51 16rB0 16r60 16r10 \
  160.         16r51 16r21 16rD0 16rF8 16r15 16rF2 16r10 16rE1 16r02 16r08 \
  161.         16r22 16r21 16rB6 16rF7 16r02 16r20 16rF4 16rF3 16rB3 16rF2 \
  162.         16r10 16r21 16r81 16r00 16rF1 16r60 16rF2 16rF5] \
  163.     #( #grow:  )) >
  164.  
  165. <primitive 112 pTempVar 34  " initialize " \
  166.   #( #[ 16r5D 16r60 16r5D 16r61 16r50 16r62 16rF5] \
  167.     #(  )) >
  168.  
  169. <primitive 112 pTempVar 35  " postCopy " \
  170.   #( #[ 16r20 16r90 16r00 16rF2 16r20 16r80 16r01 16rF2 16rF5] \
  171.     #( #postCopy #breakDependents  )) >
  172.  
  173. <primitive 112 pTempVar 36  " myDependents: " \
  174.   #( #[ 16r21 16r5D 16rB6 16rF7 16r09 16r10 16r20 16rE0 16r02 16r5D 16rF3 \
  175.         16rD9 16rF8 16r05 16rF2 16r10 16r20 16r21 16rD0 16rF2 16rF5 \
  176.        ] \
  177.     #(  )) >
  178.  
  179. <primitive 112 pTempVar 37  " myDependents " \
  180.   #( #[ 16r10 16r20 16rE0 16r02 16r5D 16rF3 16rD5 16rF3 16rF5] \
  181.     #(  )) >
  182.  
  183. <primitive 112 pTempVar 38  " broadcast:with: " \
  184.   #( #[ 16r10 16r20 16rE0 16r02 16r5D 16rF3 16rD5 16r73 16r23 16r80 16r00 \
  185.         16rF7 16r0B 16r23 16rE1 16r04 16r06 16r24 16r21 16r22 16r82 \
  186.         16r01 16rF3 16rB3 16rF2 16rF5] \
  187.     #( #isNotNil #perform:with:  )) >
  188.  
  189. <primitive 112 pTempVar 39  " broadcast: " \
  190.   #( #[ 16r10 16r20 16rE0 16r02 16r5D 16rF3 16rD5 16r72 16r22 16r80 16r00 \
  191.         16rF7 16r0A 16r22 16rE1 16r03 16r05 16r23 16r21 16r81 16r01 \
  192.         16rF3 16rB3 16rF2 16rF5] \
  193.     #( #isNotNil #perform:  )) >
  194.  
  195. <primitive 112 pTempVar 40  " dependenciesAt: " \
  196.   #( #[ 16r10 16r21 16rE0 16r02 16r5D 16rF4 16rD5 16rF3 16rF5] \
  197.     #(  )) >
  198.  
  199. <primitive 112 pTempVar 41  " adaptors " \
  200.   #( #[ 16r11 16r20 16rE0 16r02 16r5D 16rF3 16rD5 16rF3 16rF5] \
  201.     #(  )) >
  202.  
  203. <primitive 112 pTempVar 42  " myAdaptors: " \
  204.   #( #[ 16r21 16r5D 16rB6 16rF7 16r09 16r11 16r20 16rE0 16r02 16r5D 16rF3 \
  205.         16rD9 16rF8 16r05 16rF2 16r11 16r20 16r21 16rD0 16rF2 16rF5 \
  206.        ] \
  207.     #(  )) >
  208.  
  209. <primitive 98 #Model \
  210.   <primitive 97 #Model #Object #AmigaTalk:General/Model.st \
  211.    #(  #modelDependents #modelAdaptors #haveAChange #linkedMethods ) \
  212.    #( #update: #update:with: #update:with:from: #changed:with: #changed:  \
  213.        #changed #okToChange #contentsChanged #modelWakeUpIn: #modelWakeUp #modelSleep  \
  214.        #windowIsClosing #perform:orSendTo: #new #value #linkMethod: #topController  \
  215.        #removeDependent: #hasUnacceptedEdits #dependents #dependents: #canDiscardEdits  \
  216.        #asDependentsWithout: #asDependentsWith: #asDependentsAsCollection #retractInterestIn:for:  \
  217.        #expressInterestIn:for:sendBack: #onChangeSend:to: #breakDependents #release #changeMade  \
  218.        #changeComplete #addDependent: #initialize #postCopy #myDependents: #myDependents  \
  219.        #broadcast:with: #broadcast: #dependenciesAt: #adaptors #myAdaptors:  ) \
  220.   pTempVar 6 12 > #ordinary >
  221.  
  222.